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WELCOME TO FORMS-2! 


This manual describes your FORMS-2 package to design, create and edit 
interactive screen layouts for use in CIS COBOL application programs. 

Most application programs will be written separately according to individual 
requirements but FORMS-2 can automatically generate a powerful user-oriented 
indexed data entry and filing system maintained by use of the screen layouts 
(forms). 

If you want to generate an automatic indexed filing system Index program and 
then use it, carry out Chapter 1 procedures, read Chapters 2 and 3 briefly 
and then refer straight to Chapter 8 before performing the comprehensive 
sample run in Chapter 9. 

If you wish to generate some screen layouts, carry out the procedures in 
Chapter 1, read briefly Chapters 2 and 3, and then perform the comprehensive 
sample run in Chapter 7. 

To gain a further understanding of the FORMS-2 features and FORMS-2 operation 
read Chapters 1, 2 and 3 in detail. Chapters 4, 5, 6 and 8 are descriptions 
of FORMS-2 output file contents and relate directly to optional features that 
can be used. Read these Chapters only if you require the feature described. 

It is recommended that, in any case, you run the sample programs before 
using FORMS-2 to generate your own forms or indexed files. 
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NOTATION IN THIS MANUAL 


Throughout this manual the following notation is used to describe the format 

of data input or output: 

1. All words printed in small letters are generic terras representing names 
which will be devised by the programmer. 

2. The carriage return (CR) or equivalent data input terminator key is 
referred to throughout this manual as the RETURN key. 

3. The symbol « in this manual indicates that the RETURN key must be 
pressed once. 

A. The space bar or key is referred to throughout this manual as the 
SPACE key. 

Headings are presented in this manual in the following order of importance: 


CHAPTER n 
TITLE 


Chapter heading 


ORDER ONE HEADING 
ORDER TWO HEADING 
Order Three Heading 
Order Four Heading 

Order Five Heading: 


Text two lines down 


Text on same line 


Numbers one (1) to nine (9) are written in text as letters e.g., one. 
Numbers ten (10) upwards are written in text as numbers e.g., 12. 


RELATED PUBLICATIONS 


For details of CIS COBOL operation and language respectively, refer to the. 
documents: 


CIS COBOL Operating Guide 

CIS COBOL Language Reference Manual 
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INTRODUCTION 


GENERAL DESCRIFriON 
FACILITIES 

The FORMS-2 package is an extension to the CIS COBOL software development 
system which enables Interactive creation and editing of data entry screens 
for applications programs at a CRT. The package provides four powerful 
facilities to aid the design and development of interactive applications 
written in CIS COBOL: 

* Translation of user screen layouts into COBOL record descriptions 
for inclusion in CIS COBOL applications programs. 

* Verification of user screen layouts In a Check-Out program before 
their incorporation in an application program. 

* Retention of exact screen images of the user screens in disk files' 
for subsequent editing and printing. 

* Generation of an entire CIS COBOL program to allow data capture, 
update and Interrogation by means of application screens and an 
indexed sequential file. 




OUTPUTS 

The user can choose any valid combination of the above facilities and 
dependent on the options selected FORMS—2 will automatically produce the 
following four types of disk output file:- 

* A source file of CIS COBOL Data Description Statements defining 
the user designed screens (forms). These statements can 
subsequently be Included in a CIS COBOL application program using 
the COPY verb. The file is generated as filename.DDS. 

A source file of a Check-Out program Incorporating the Data 
Description Statements defining the user's screens. After 
compilation the user is able to verify the data entry form prior 
to building the actual application. The file is generated as 
filename.CHK. 

Screen Image files of exact copies of the user defined forms. The 
files are generated as filename.Snn (nn Is 00 to 99). 

A file of the source of an Index program based on the user screen. 
After compilation the generated program can be used for the 
storage, retrieval, updating and deletion of data entered via the 
users form. The file is generated as filename.GEN. 
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PHASES 


FORMS-2 processing is divided between a number of logically distinct units 
but two main phases can be identified - Initialisation Phase and Work Phase: 

Initialisation Phase 


The Initialisation phase is passed through once only and establishes the 
characteristics of this particular run of the program. It is a series of 
screens containing self-explanatory prompts to which the user replies as 
necessary. 


Work Phase 


At least two Work Phases are passed through for each data entry screen 
required by the application. 

The FORMS-2 screen is analogous to a paper form in which the printed fixed 
text is used as a guide to entering the variable data in the spaces 
provided. To the human eye it is obvious where the variable data entry 
areas occur on a form but the computer needs to have these areas defined 
explicitly. There are, therefore, two types of Work Phase: one in which 
fixed text is specified and one in which variable data fields are specified. 
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OPERATOR INTERFACE 


FORMS-2 is written in CIS COBOL and uses the ACCEPT and DISPLAY COBOL verbs. 
These two verbs are described in the CIS COBOL Language Reference Manual, as 
are the cursor control features. 

Advantages of this CRT interface are: 

* Corrections can be directly overtyped 

* Numeric fields accept only numeric characters 

* The full stop or period (.) when keyed in a numeric field 
automatically zero-fills the field from the left. 

CURSOR MOVEMENT FACILTIES 

The user has the ability to move the cursor quickly and easily about the 
screen using the standard CIS COBOL ACCEPT statement interactive facilities. 

The general functions of the cursor control keys are summarised in the 
following table. The actual key may vary from that' showti dependent on the 
particular CRT being used. 


Table 1-1. Cursor Control Keys. 


KEY: 

FUNCTION: 


—> 

r 

Position cursor right one data character 

Position cursor left one data character 

Position cursor at start of succeeding data field 

J 

\ 

Position cutsor at start of preceding data field 

\ 

or HOM 

Move cursor to start of first data field 

TAB 

Position to next tab stop 


In Edit Mode the screen is split into fields 80 characters long. There are 
22-24 fields per screen depending on the number of lines specified at Screen 
101 . 

Corrections to text may be made by overtyping or by switching into Command 
Mode and using the editing commands. 
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GETTING STARTED 


The FO RMS-2 Issue Disk is a formatted data disk formatted to the 
requirements of the support Operating System. 

Load the Operating System system disk and the FORMS-2 Issue Disk, bootstrap 
load the Operating System as usual, and obtain a directory of the FORMS-2 
Issue Disk. All the files listed in Table 1—2 should be present on the 
disk. If they are not, or any problems arise, contact your Distributor. 


Table 1—2. FORMS—2 Issue Disk Contents 


FILE 

CONTENTS 

DESCRIPTION 

FORMS2.COM 1 

F0RMS2 program 

The manual 

FORMS2.101 

FORMS2.102 

Initialisation Phase Screens 

Chapter 2 

F0RMS2.W01 

FORMS2.WO2 

Work Phase Screens 

Chapter 3 

FORMS2.HOI 
FORMS2.H02 
FORMS2.H03 
F0RMS2.H04 

Help Screens 

Chapter 3 
(? Command) 

FORMS2.CHI 
F0RMS2.CH2 

Check-Out Program Skeleton 

Chapter 5 

F0RMS2.GN1 

FORMS2.GN2 

Index Program Skeleton 

Chapter 8 

CONFIG.SAV 2 

Configuration Program 

Chapter 1 

1 - F0RMS2.SAV under RT-11, F0RMS2 under BOS 

2 - Not supplied for BASF systems 


Some operating systems require additional files. See Appendix D for 
specific requirements of your operating system. 

Having validated that all the files are present copy all of them to a 
working disk using the standard copy program provided with your operating 
system, and store the Issue Disk as a back-up master. 
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CRT CONFIGURATION 
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FORMS-2 is issued for use with a standard CRT dependent on your operating 
system (0/S). It can be configured for other CRTs using the CONFIG program 
supplied. 

If your system is already configured for your specific CRT (i.e. BASF 
implementation), CONFIG is not supplied. Skip straight to the next heading 
FORMS-2 VALIDATION on the next page. 


For non-standard systems, the notes given in Appendix D describe the most 
straightforward case. If you are using variants of the 0/S or any 
non-standard CRTs you should refer to the CIS COBOL Operating Guide for a 
more detailed description of CONFIG. 

Boot up as before with the Issue Disk in the second drive. Then load and 
run the CONFIG program by setting the 0/S to access the second drive and 
then typing the CONFIG load command for your 0/S. 

The configurator will sign on and output questions as follows: 

CP/M — request for the name of the program to configure and the 0/S 
prompt sign. 

Enter: F0RMS2.C0M« 


and wait while the file is accessed. When it is ready, a prompt 
is displayed to ask if the CRT is to be tailored. 

Enter: Y 

A range of pre-defined CRT's is then offered. If the CRT is one 
of those shown, select the CRT and answer the final few questions 
described below. If the CRT is not one of those shown then type Z 
and answer the questions from CONFIG concerning the CRT 
characteristics. 

A final few questions are then asked associated with options 
designed to accommodate users who need to access their CRT and 
keyboard directly through the I—0 ports without using the standard’ 
0/S access methods. 

Unless any variants of the 0/S are being used, the reply N (No) is 
made to the question relating to 1-0 ports, and to the byte mask 
facility. Likewise the tab defaults can be accepted by a N (No) 
reply. 


A range of pre-defined CRT's are offered. If your CRT is one of 
those offered, make the appropriate selection, otherwise you will 
be prompted for CRT details. 

Tab positions are requested and then the question whether FORMS-2 
is required is asked. 


Enter: Y 

The FORMS-2 program is then modified on disk and there is a short delay 
while this takes place. 


NOTE: 

FORMS-2 is modified! 
necessary. 


However, it can be reconfigured whenever 
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FORMS-2 VALIDATION 


Once FO RMS-2 is configured for the appropriate CRT, you should first 
validate the main files on your disk by performing the simple run below: 

I. Boot the system up, and load FORMS-2 by entering the load command for 
your operating system. Note that the program name for file purposes is 
F0RMS2. 



A six—character base for file—names and data—names is requested 
followed by four other questions. The question on CRT size needs to be 
answered if your CRT is a non-standard size. Otherwise all the default 
replies are accepted and you need only key DEMO followed by the RETURN 
key. 


3. FORMS-2 displays Screen 102 to request the output file option type and 
drive number. (Note that RT-11 will only handle drives :F0: and :F1:): 



Key F then RETURN. 
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FORMS-2 displays Screen W01 to request the Screen Type option 


FORMS2 VI.1 


WORK PRASE 


SCREEN W01 


WORK SCREEN-. SELECTION: 


SCREEN TYPE 


Fixed Text allows: 


(A = Fixed text on clear screen) 

(B = Fixed text on last screen) 

(C = Variable data redefines last screen) 
(D = Variable data without redefinition) 
(! = Complete this FORMS run) 

All characters 


Variable Data allows: 


Press RETURN when complete 


X or Y to define alphanumeric fields 
9 or 8 to define numeric fields 
edit chars to define numeric edit fields 
(CIS COBOL Standard only) 


Note the default "A" and press the RETURN key. 

FORMS—2 displays a blank screen. You are currently in Edit Mode, and 
should be able to position the cursor at any point on the screen. Use 
the cursor control keys and the normal character keys to set up the 
following text on the screen: 


Finally press the RETURN key. 

FORMS—2 puts _" in the top left of the screen indicating that you 

now in Command Mode. Enter ? and then press the RETURN key. 
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FORMS-2 displays screen HOI, thus: 


FORMS2 VI. 1 


HELP SCREEN 




SCREEN HOI 


GENERAL COMMAND SUMMARY: 

SPACE =* Process the work screen 
■ Re-enter EDIT mode 
T =« Display the next HELP screen 
?n - Display the nth HELP screen^ 

Q = Re-enter WORK PHASE screen selection 
! =* Terminate FORMS run immediately 

X =* Position commands at EDIT mode cursor 
* =* Indicate Index Form’s data area start 

NOTE: SPACE is the command to process the EDIT mode screen 

HELP option [_] (_ =. Re-enter EDIT mode) 

(? ■» Display next HELP screen) 

(! =* Abandon FORMS2 run immediately) 

Press RETURN when complete 


Enter ? then RETURN. 


8. FORMS-2 displays screen H02, thus: 

r --— - 

FORMS2 VI. 1 HELP SCREEN 

MANIPULATION COMMAND SUMMARY: 

F ■ Invoke FOREGROUND/BACKGROUND manipulation 
Fx =* Invoke FOREGROUND/BACKGROUND option "x" 

0 » Turn on automatic WORK screen preparation 

01 = Turn off automatic WORK screen preparation 
Cn =• Insert n spaces at cursor position 
Dn =» Delete n characters at cursor position 
In » Insert n blank lines before cursor line 
Kn * Delete n lines including cursor line 
An =* Overwrite n lines with data of cursor line 
Un =* Move cursor up n lines 
Vn => Move cursor down n lines 

HELP option [_] (__ =■ Re-enter EDIT mode) 

(? = Display next HELP screen) 

(! ** Abandon FORMS 2 run immediately) 

Press RETURN when complete 

V---:_J 


SCREEN H02^ 


Enter ? then RETURN. 


l—o 





9. FORMS-2 displays screen H03, tfrus: 


r- 


FORMS2 VI. 1 


HELP SCREEN 


SCREEN HO3 




PROGRAMMING COMMAND SUMMARY: 


HELP option 


[ ] 


Press RETURN when complete 


G = Give datanames screen coordinates suffix 
G1 = Give datanames sequential number suffix 
Jn * Allow up to n consec. spaces in fixed text 
Mx =* Interpret "x" as "space" 

S = Cancel previous Sn command 

51 * Inhibit DDS & CHK output at next processing 

52 = Inhibit Snn output at' next processing 

53 = Prompt for Snn file-name at next processing 
S9 = Line edit DDS output at next processing 

P = Display cursor position coordinates 
• 

(_ = Re-enter EDIT mode) 

(? * Display next HELP screen) 

(! = Abandon FORMS 2 run immediately) 



Enter ? then RETURN. 


10. FORMS-2 displays 


r 


FORMS2 VI. 1 

WINDOW COMMAND SUMMARY: 


C 


HELP option 


Press RETURN when complete 

L _ 


screen H04, thus: 


HELP SCREEN 


SCREEN H04' 



W Position cursor to current window start 
W1 = Start window at cursor line 
W2 = End window at cursor line 
W3 * Start window et cursor Line, aa della* s. 

W4 ** End window at cursor line, no delim's 

W5 = Display start window delimiters 

W6 =* Display end window delimiters 

W7 = Re-display data overwritten by start delim's 

W8 = Re-display data overwritten by end delim's 

W9 - Position cursor to current window end 

] (_ =* Re-enter EDIT mode) 

(? = Display next HELP screen) 

(! “ Abandon FORMS2 run immediately) 


.J 


Simply press RETURN. 
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11. FORMS-2 redisplays the fixed text that you keyed in at step 5. Press 
RETURN. 


12. FORMS-2 puts "_" in the top left of the screen. Enter F then press 

RETURN. 

13. FORMS-2 displays screen W02, thus: 




Enter A then RETURN. 

14. Again FORMS-2 redisplays the fixed text entered at step 5. Press 
Return. 

15. FORMS-2 puts "_" in the top left hand of the screen. Press the SPACE 

and then RETURN keys. 

16. FORMS-2 displays screen W01 again to request the Screen Type option. 
Note the default is "C" and press RETURN. 


17. FORMS-2 displays the fixed text screen. Use the cursor control keys and 
key in X's alone to set up the screen as follows: 



Press RETURN. 


F0RMS2 VI.1 


WORK PHASE 


SCREEN WO2 


FOREGROUND/BACKGROUND OPERATIONS: 


OPTION 


Re-enter EDIT MODE) 

Clear FOREGROUND) 

Clear BACKGROUND) 

Merge BACKGROUND into FOREGROUND) 
Merge FOREGROUND into BACKGROUND) 
Merge screen image into FOREGROUND) 
Merge screen image into BACKGROUND) 
Display FOREGROUND) 

Display BACKGROUND) 

Display screen image) 


NOTE: 


(H & I & J display until RETURN pressed) 


FILE-NAME 

Press RETURN when complete 


(Screen image file) 
(F & G & J only) 
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FORMS-2 puts _ in the top left of the screen. Press the SPACE key 

and then RETURN. 

FORMS-2 displays screen W01 again. This time enter ! and press RETURN 
to complete the run. 

FORMS-2 terminates with the message: 


END OF FORMS 2 RUN 


FORMS2 COPYRIGHT (C) 1979 MICRO FOCUS LTD 


You have now used all the FORMS—2 Screens and you can be sure that you have a 
usable product. 
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INITIALISATION PHASE 


The Initialisation Phase of the FORMS—2 Utility program immediately follows 
program load, and is only carried out once in any one run of FORMS-2. It 
consists of replying to questions asked on the two Initialisation screens 
101 and 102. 


INITIALISATION SCREEN 101 


This screen is displayed immediately FORMS-2 is loaded. 


Five items of information are requested. Note that the effect of pressing 
the RETURN key during this screen display immediately enters all responses 
so far made and any remaining defaults. Do not therefore press RETURN until 
all the required entries have been made, for the following: 



* 

* 

* 


Data-name and the File-name Base 
Lines per CRT Screen 
CIS COBOL Compiler 
Currency Sign 

Decimal-Point Representation 


DATA-NAME AND FILE-NAME BASE 


The record/filename base keyed In at this point Is used in the following 
ways by FORMS-2:- & 


^^ ^- s taken as the first part of all the data—names and record—names 
generated in this run. Uniqueness is achieved by adding a two-digit 
sequence number for new records and adding the sequential number of the 
field within the form for, datanames within records. Optionally by 
means of a Work Phase command, uniqueness may be achieved by adding the 
screen coordinates. 

C-/ 2 *f It: is taken as the ma in filename for files generated. These can 
v consist of:- 


filename .DDS 


for CIS COBOL Data Description Statements (See 
Chapter 4) 


filename .CHK 
filename .Snn 

filename .GEN 


for Checkout program (See Chapter 5) 
for Screen images 

(nn=00, 01, 02,...,99) (See Chapter 6) 
for Index program (See Chapter 8) 


Note that only one DDS file is output per FORMS-2 run, whereas a separate 
screen image file is output for each screen built. 
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LINES PER CRT SCREEN 


FORMS- 2 can be used with screens of 22, 23 or 24 lines. FORMS-2 defaults to 
24 for this entry. If your CRT has fewer than 24 lines, FORMS-2 will not 
function correctly if this default is taken. With certain CRT's it may be 

° nS f ^f r than the lines on the screen to avoid a 
problem whereby the screen Is "rolled-up" a line unnecessarily. 



CIS COBOL COMPILER 


The version of the compiler for which FORMS-2 is to generate CIS COBOL 
statements is specified by the response. Either the Standard or the Compact 
versions of the CIS COBOL compiler can be selected. The default option is 
for the Standard compiler. 


NOTE: 

If the compact CIS COBOL version of the compiler is selected, defaults 
for the last two entries must be accepted. 


CURRENCY SIGN 



This entry allows the default currency sign ($) to be overridden. It will 
cause generation of an appropriate Special-Names entry in either the 
Checkout and Index program. The specified currency sign should be used when 
specifying numeric edited fields in the Work Phase, and will be used in the 
generated data description statements. 

NOTE: 


The specified character is not validated. Users should refer to the 
CIS COBOL Language Reference Manual for a list of valid characters. 


DECIMAL-POINT 

This option allows the roles of the period or full-stop sign (.) and the 
comma sign (,) to be exchanged. If is specified then a DECIMAL-POINT IS 
COMMA clause will be generated in the Checkout or Index Programs. The 
default is The specified decimal point sign should be used when 
specifying numeric edited fields in the Work Phase, and will be used in the 
generated data description statements. 
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INITIALISATION SCREEN 102 


Sc: n 102 is displayed immediately after screen 101 entries are terminated 

by pressing the RETURN key. 

At this point the user specifies the following: 

* Types of files to be created 

* Disk drive to which files are to be written. 

Once screen 102 is released by pressing RETURN the Work Phase is entered and 
it is no longer possible to amend information specified during the 
Initialisation Phase. 

FILE COMBINATIONS 

FORMS-2 offers options for all valid combinations of these files, each 
identified by a unique file name extension as follows: 

1. D °S - The user may generate CIS COBOL source Data Description 
( Statements (DDS) corresponding to the screens he has created. These 
are output to a standard ASCII text file and may be subsequently 
compiled Into any program using the standard COBOL COPY facility. In 
Particular they are used by the Check-Out and Index programs, (see 
below). 

The reader who Is unfamiliar with screen handling in a CIS COBOL 
program should consult the CIS COBOL Language Reference Manual 
(especially the sections on ACCEPT/DISPLAY, FILLER, REDEFINES). 

CMK — In addition to generating DDS, FORMS—2 can also generate a 
Checkout' program. This consists of simply the Procedure Division 
statements (ACCEPT and DISPLAY) which correspond to the screens that 
have been created. These statements are contained in filename.CHK (see 
record/filename prefix) and they are combined with the following COPY 
files:- 

filename.DDS , FORMS 2. CHI, FORMS2.CH2 

The Checkout program allows the user to demonstrate on the screen 
exactly how the system will operate, by displaying successively the 
screens he has just created, and by allowing data to be entered just as 
it would be under actual operating conditions. 

Snn - The user may also output the text of the screen just designed to 
a file on disk in the form of a screen image. This file can be 
retrieved later in this run or in subsequent FORMS-2 runs, for further 
amendment if required. 

Alternatively they may be printed, and the hard copy simply used as a 
means of communicating between different individuals at different times 
( e »g» the end user and the programmer) • 
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4. 


GEN - FORMS-2 can generate an Index program. This includes all code 
necessary to set up and maintain an indexed sequential file with 
records corresponding to the structure of the user’s form. The code is 
output to filename.GEN and is combined with the following copy files:- 

filename.DDS, F0RMS2.GN1, F0RMS2.GN2 

Index program generation places constraints upon the user during the 
FORMS - 2 run. The creation and operation of the Index program is 
discussed in detail in Chapter 8. 


NOTE: 

If the Q command (see Chapter 3) is entered at this point, FORMS-2 will 
quit back to screen 101, allowing amendment of information given 
there. This can be useful If RETURN is inadvertently pressed before 
all options have been entered. 

OUTPUT DISK DRIVE 

All the files output by FORMS-2 are on the same drive. If the space 
character is entered for the drive number, the files will be created on the 
lagged in drive. 
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C 


V 


WORK PHASE 

The user defines the screen layouts (forms) to be used in a CIS COBOL 
application by entering text at the keyboard to produce model forms on the 
screen. The user may define as many forms as he wishes in a single FORMS-2 
To define one form requires at least two distinct Work Phases: one to 
define the fixed text of the form, and another to define the variable data 
entry fields. 

Most commonly the first Work Phase is used to specify the fixed text form 
and the subsequent Work Phase to specify the variable data fields within the 
form. However this need not always be the case and FORMS-2 needs to known 
w ch type of text is to be input in a particular phase. Therefore the Work 
Phase is introduced by a screen presenting the various options (W01). 

SCREEN W01 


SCREEN TYPE SELECTION - 

( 

Fixed Text selections offered at this screen are as follows: 
A 


B 


The CRT screen is cleared to spaces in preparation for the user to 
enter the fixed text for a new form. 

JJ evlou s sc J ee n Is redisplayed to assist the user in defining 
additional fixed text. Text from the previous screen is used only 
^ckground in this case, and is not included in the record 

muf^th ° n f f ° r thS flXed text . currently being keyed in. The user 
must therefore ensure that if any part of the previous screen is 
inadvertently overkeyed, the original characters must not be 
replaced but cleared to spaces. 

Variable Data selections offered at this screen are as follows: 

- The previous screen is redisplayed to assist the user in the 
reef initios of the, form to incorporate variable data field 

( specifications. In the application the data is keyed into the 

V- fixed text form itself. J 

° " Previous screen is redisplayed to assist the user in the 

fr^^b^f^/ ariSble data fields which wil l be kept separate 
• . 2 e text within the applications program.- This may 

somBtiiiDBs ^6 of ass istanrp f* 0 ^ 

results in larger appl ic a tlon «"» th °^ h “ 


O' 
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TERMINATING THE RUN 


Screen WO I Is redisplayed after completion of each Work Phase, and is the 
screen used to terminate the program. This is done by entering the 
character ! and pressing the RETURN key. ■ 5 

WARNING! 


Use of the 1 command at any other time causes immediate abandonment of 
the run. 


n termination, the DDS file is closed and an identification message is 
displayed. If the Check-out facility was specified during initialisation 
then output of the Check-out program to disk is completed and the CHK file 
is closed with an identification message displayed. 


Termination occurs automatically after the second Work Phase if an Index 
program is being generated (see Chapter 8). 





WORK SCREEN 


the screen type has been Selected, the user is presented with the 
appropriate Work Screen for that text to be entered, i.e., if option A 
(fixed text on clear screen) is selected, a blank screen is displayed. For 
the other options,, the previous screen is redisplayed to allow correct 
alignment of the current input. 

BACKGROUND/FOREGROUND 

In order to process only the data entered in this phase, FORMS-2 must keep 
this data separate from previously entered data which is displayed purely 
for alignment purposes. FORMS-2 does this by constructing the displayed Work 
Screen from two separate data areas, termed Background and Foreground. The 
Foreground holds the data entered during the current Work Phase. The 

Background holds previously entered data which has been retained for 
alignment of the data entered in the current Work Phase. At the end of each 
Work Phase FORMS—2 processes the Foreground data only. 

W1 \ screen W01 is next reached if options B, C D or are chosen, the 
Foreground is overtayed' on the current Background contents and then 
Foreground is cleared to spaces. If option A is selected both Background 
and Foreground are cleared to spaces. 

In this way the new Work Screen is prepared automatically. 

NOTE: 

It is possible to override this automatic Work Screen preparation for 
the next phase by means of a Work Screen command, described later, and 
leave both areas unchanged. 


Generally data is entered into the Foreground via the keyboard, and is moved 
into the Background only from the Foreground. The F Work Screen command 
described later provide facilities for further manipulation of these areas. 
In particular it is possible to input a Screen Image file from a previous 
run into the Foreground, thus enabling amendment of existing forms. 

During entry of data into the Work Screen (i.e. Foreground) two modes can be 
ii v ked as follows: 


Edit Mode 


Command Mode 


EDIT MODE 


The mode in which the user keys data to create 
the model form. The Initial mode is always 
Edit Mode. 

Commands are available to assist in the 
creation of the edited Work Screen and In its 
processing. 


Edit Mode is identified to the user as the mode in which the cursor can be 
freely moved to any part of the screen by use of the cursor control keys. 
Entries may also be made into any part of the screen, in accordance with the 
screen type selected at the start of this Work Phase. 




Fixed Text 


In the design cf the Fixed Text of a form (i.e. the fixed fields analagous 
to the pre printed text on a paper form) any legible characters can be 
entered anywhere on the screen. This text will be displayed as "prompt" 
text during a data entry run of the application. 

Variable Data 


In the design of the Variable Data fields of a form (I.e. the fields 
analagous to the entry spaces on a pre-printed form) the characters X, Y and 
8, 9 can be entered. 

When variable data is being keyed in, X denotes an alphanumeric character 
and 9 denotes a numeric character. If it is required to. have two 
alphanumeric fields contiguous with each other, Y's are placed in the 
character positions of the second field. Similarly, for contiguous numeric 
fields 8*s are used. 

EXAMPLE: • 

'INVOICE NO. 

Suppose in an application the operator must key in an Invoice Number. Then 

the fixed text in this example could be "INVOICE NO ." One example 

value of an invoice number could be "CA3021". It is necessary to define the 
area and type of this variable data explicitly for the computer. Hence if 
the. invoice number always had two alphanumerics followed by four numerics, 
the user of FORMS-2 would key in XX9999 at the point on the screen (the dots 
in this example) where he wishes the operator to key the actual invoice 
number when the application Itself is running. (Note that CIS COBOL 

provides an automatic validation of numeric fields). 

Additionally, if the- Standard Compiler option is taken at screen 101, 

special editing characters can be input to specify numeric edited fields. 
This feature is not implemented under RT-11. Note that these fields should 
be separated by spaces. Numeric Edited Fields are described in the 

CIS COBOL Language Reference Manual. The valid characters are: — 

z » *» + » “> CR, DB, .(period), .(comma), B, /, 0(zero), $ 

The $ sign is the currency sign which may be replaced by another sign as 
specified in the SPECIAL—NAMES clause of the CIS COBOL program either 

directly or as specified during the Initialisation Phase of the FORMS-2 run 
(See Chapter 2). 

NOTE: 

The picture characters S, V, P are not allowed. 


Variable data fields are checked for validity but only when a DDS file is 
being created. The user should consult the CIS COBOL Language Reference 
Manual (ACCEPT/DISPLAY Verbs) for detail of. how CIS COBOL screen handling 
works. 





CCMMAND MODE 


To switch to Command Mode from Edit Mode, the user simply presses the RETURN 
hey. 

Command Mode is - identified, to the user as the mode in which two underline 
characters initially bound the cursor, and the cursor is constrained to stay 
within these two characters. 

Commands are invoked by keying the command always followed by pressins the 
RETURN key. 


When execution of a command is complete, all commands (except SPACE, ! and 
Q) return to Edit Mode. 

The default command is the underline character ( ) and this causes immediate 
re-entry to Edit Mode. 


Cg- ands 

The commands available to the user during the Work Phase fall into three 
main groups. All commands are entered by typing the command character/s 
followed by pressing the RETURN key. 

1. General Commands 


General commands perform such functions as releasing the Work Screen 
for processing. 


2. Work Screen Manipulation Commands 


Work Screen Manipulation commands assist in the preparation and editing 
of the Work Screen. It is recommended that all users become very 
familiar with these commands. 




3. Programming Commands- 


Programming commands have been introduced mainly for the convenience of 
the COBOL programmer, and some of them will not be meaningful without 
an understanding of COBOL. They include commands to assist in 
producing efficient code, and to give more control over the files 
output. 


NOTE: 

Groups 1 and 2 are summarised within HELP screens 1 and 2 (HOI H02) 

Group 3 is summarised on HELP screens 3 and 4 (H03, H04) . See 
Appendix C. ’ ' 
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General Work Screen Commands 


A description of each general command is given below. 

? - Display Help Screens 

Entry of the question mark then RETURN causes display of the 
first HELP screen, which includes a summary of the General 
Commands. This screen remains displayed until further input 
is made. 

Keying RETURN alone at this stage returns to EDIT MODE. 

Keying ? then RETURN again causes display of the next HELP 
screen, which is a summary of the Work Screen Manipulation 
commands, and if repeated, each HELP screen in sequence until 
the end of the series when the first screen Is displayed 
again. 

The ? command is also available from the first (Select Text ^ 
Type) screen W01. 

“ Display Help Screen specified by n 

The entry of ? followed by a numeric digit then RETURN 
directly displays the nth screen in the HELP series. 

(Space) - Terminate the Work Phase 

Entry of the space character terminates the current Work 
Phase and Initiates processing of the data just entered in 
that Work Screen. 

__ (Underline) - Return to Edit Mode 

Entry of the underline character exits from Command Mode back 
to Edit Mode. 

All commands except SPACE, 1 and Q return to Edit Mode. The .A 
default command was introduced for convenience in case 
Command Mode is entered inadvertently. 

Q - Quit 

Entry of Q returns to Screen WP01 (Select Type of Text). 

Whatever text type is then selected, the current 
Foreground/Background components of the Work Screen will be 
unchanged on re-entry to Edit Mode. 

The most likely use for this command is where the default 

option C (variable data fields) Is taken at screen W01 and 

then the Work Screen is incorrectly used to set up a fixed 

form. Validation, errors then occur with automatic 

re-entry to Edit Mode. To return to screen W01 and correct 
the selection without loss of the text just entered, key 
RETURN to enter Command Mode and enter the Q command. The 




1 


X 



* 



screen type can now be corrected and the Work Screen has been 
preserved for reprocessing (as fixed text). The Q command is 
also available at screen 102, and again its function is to 
return a step within the phase (in this case back to screen 
101). 

Terminate FORMS-2 run 

Entry of the I character causes termination of the program. 
This command is available throughout the FORMS-2 program, but 
is normally used on automatic return to screen W01 when a 
work phase has been completed. When used elsewhere it 
abandons the run. 

Reposition Command Area 

The standard command area is in columns 1 and 2 of line 1 as 
indicated by the two underline characters displayed on entry 
to Command Mode. FORMS-2 always attempts to restore any data 
in these positions upon return to Edit Mode. However to 
enable these positions to be preserved'' intact at all times, 
the facility to reposition the command area is provided. To 
achieve this, the cursor is placed at the desired location 
prior to Command Mode being entered. Entry of the character 
X then causes the required change. The next time Command 
Mode is entered the prompting underline characters will 
appear at the new specified location. 

Define Key/Data split for Index Program 

This command is particular to generation of the Index Program 
and is described in Chapter 8. Note however, that if the 
Index Program option G is taken at screen 102, at some stage 
prior to termination of the second Work Phase the cursor 
should be positioned at the first non-key variable data 
position and the * command entered. 

If this is not correctly done, FORMS-2 will continually return 
to Edit Mode until It is. 



c 
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Work Screen Manipulation Commands 

The commands F and D are preparation commands. 

F - Invoke Foreground/Background Menu Screen (W02) . 

Screen W02 contains options to assist in setting uo the 
Foreground component of the Work Screen. The concept of 
Foreground and Background is described earlier in this 
Chapter. 




The options made available by the FORMS-2 W02 Screen 
are:- 


A - Return to Edit Mode. 


B 

C 

D 

E 

F 


G 

H 


I 


J 


Note: 


Clear Foreground to spaces. 


Clear Background to spaces. 

Overlay Background data on to Foreground. 



Overlay Foreground data on to Background 

Overlay a Screen Image file onto 
Foreground. This option allows forms 
defined in previous runs (and also 
earlier in this run) to be amended. If 
selected the user is prompted for the 
identity of the required file. 

Overlay a Screen Image file onto 
Background. 

Show Foreground. This displays just the 
Foreground component of the Work Screen 
for examination. The full Work Screen 
will be restored on return to Edit Mode. 

Show Background.. This displays just the 
Background component of the Work Screen 
for examination. 



Show a Screen Image file. The user is 
prompted for the identity and the 
specified file is displayed, but without 
corrupting the current contents of either 
Foreground or Background. This enables a 
check to be made prior to using option D. 


The options H, I and J cause a display which 
remains until RETURN is pressed. 
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Fx 


01 


0 or 00 



c 


Specifies Required Foreground/Background Option. 

x is the option code as contained in screen WP02 above. The 
specified option is executed and control returned to Edit 
Mode without display of the WP02 screen. 

"Switch Off" Automatic Background/Foreground Preparation. 

The Background/Foreground preparation sequence is described 
under BACK GROUND/FOREGROUND earlier in this Chapter. This 
command is used to prevent the current Foreground being 
merged into the Background or either area being cleared for 
the next phase. 

The 01 command remains effective until the command 0 
(described below) is entered* 

Reset Background/Foreground Preparation. 

The Background/Foreground preparation sequence is reset to 
automatic (starting at the beginning of the next Work Phase). 

Note: 


The Q command has a similar effect (beginning at the 
next phase). 


The commands C, D, I, K and A are editing commands and are controlled by the 
position of the cursor at the time Command Mode is entered (i.e. the current 

cursor position) and operate only on the Foreground data. Background data 
remains on the same position. 6 


Cn 


Insert Spaces 



In 


Kn 



Inserts n (1-9) spaces prior to the character at the current 
cursor position. Only the current line i$ affected. 

Delete Characters 

Deletes n (1-9) characters including the character at the 

current cursor position. Only the current line is affected. 

Insert Blank Lines 

Inserts n (1-9) lines prior to the line containing the 

current cursor position, irrespective of the column. Only 
whole lines can be inserted. 

Delete (Kill) Lines 

Deletes n (1-9) lines including the line containing the 

current cursor position. Only whole lines can be deleted 
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Repeat Current Line 


Repeats the line containing the current cursor position n 
(1-9) tines. 

Note: 

This does not act as an insert. Any Foreground 
d&t.3. in the next n lines will be overwritten. 


Commands U and V are cursor positioning commands. 

Horizontal cursor positioning can be achieved by means of the _ *- and -*_ 

keys. 

^ er ^ ca ^ cursor positioning is partially achieved by means of the I and I 
keys, but the cursor is usually placed at column 1. 

Vertical tabulation within the same column can be required when setting up a 
form. Two tabulation 1 * commands are provided. 

Un - Hove Cursor Up 

Moves the cursor up n (1-9) lines from the current cursor 
position. Cursor position within the line is maintained. 

Vn - Move Cursor Down 

Moves the cursor down n (1—9) lines from the current cursor 
position. Cursor position within the line is maintained. 


Programming Commands 

G - The Dataname S tructuring Command 

The default recordname format generated by FORMS-2 for inclusion in 
the user s CIS COBOL source program for screen formatting Is as 
follows: 


bbbbbb-rr ' (01 level) 

where: bbbbbb is the 1-6 character base specified at screen 101 

rr is the record number, starting at 00 In the first 
Work. Phase and increasing by one for each subsequent 
Work Phase. 

NOTE: 

If the window commands are used to define a window 
starting in other than line 1 then the default 
recordname generated will be: 

bbbbbb-rr-11 

where 11 Is the line number. 



The default elementary datansme structure generated by FORMS-2 for 
inclusion in the CIS COBOL source program for screen formatting is 
as follows: 

bbbbbb-rr-nnnn 

where: nnnn is the sequence of this field within the screen, 

starting at 0001. 

Alternatively: 

The G (or GO) command causes nnnn within the datanarae to be the 
screen coordinates of the start of the field. This can sometimes 
be of use to the programmer as a reference guide when using 
CIS COBOL facilities to set cursor position. 


The G1 command restores the default dataname generation to using 
sequential field numbers. 


Th commands'J and" M" are Multiple Spacer and 'Ft!2I IL® 


The CIS COBOL Interactive ACCEPT and DISPLAY verbs operate only on named 
fields; FILLER areas are left alone. The time taken to display a screen 
depends both on the size and also the number of constituent fields. 


When processing fixed text screens, FORMS-2 by default generates FILLER 
wherever multiple spaces appear. On some forms this can result in many 
small fields separated by small FILLER fields. The problem may be 

allevlptpd "h-o-? J 


Jn — Reset Multiple Spaces 


The Jn command resets the number of contiguous spaces FORMS-2 will 
allow within the VALUE clause of a named field. This is initially 
set to 1. 


c 


n may be 0 - 9 
NOTE: 


J or JO will force FILLER’S even for single spaces. 

An alternative method of forcing spaces within named fields is by 
use of the underline which is designated for this purpose. Use of 
the underline character in a field results In an actual space In 
the corresponding position in the generated VALUE clause. 

If , iS re ^ uired to change the designated character from 
underline to something else (presumably because there is a 
requirement to generate VALUE " ") , the command M is used as 

fol lnu.Q • 
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Change Default FILLER 


The Mx command changes the default " " character (underline) 
to that specified by x. 

NOTE: 

If the space character ( ) itself is specified this will 
force generation of named fields for the entire screen 
without any FILLER'S. 


File Output Control Command 

S (or SO) cancels any other Sn commands in effect at the 

time. 

51 suppresses DDS (& CHK) text generation for this Work 
Screen. Generation of this text resumes for the next 
Work Screen unless the same command is repeated in the 
next phase. 

52 suppresses Screen Image (Snn) text generation for this 
Work Screen. Commonly used to suppress Screen Images of 
just variable data fields. Again the effect only lasts 
for the current phase. 

S3- results in the user being given the opportunity to 
override the default Screen Image file Identifier for 
the current Work Screen. . Normally if a file already 
with the default Identifier the user is given the 
option of overriding it. If he rejects this option he 
is prompted for an alternative file identifier. This 
command forces the alternative file identifier to be 
requested even when no file exists with the default 
identifier. 

S9 causes FORMS-2 to halt after display of each line of code 
during DDS generation. FORMS-2 re-ACCEPTs the line 

before outputting it to the .DDS file. This provides 
the programmer with a limited editing capability, which 
may prove useful under special circumstances. 


Cursor Coordinate Command 

Causes the coordinates of the current cursor position to be 
displayed at the command area position. This display lasts a 
few seconds, after which the Work Screen contents at the 
command area are restored and control is returned 
automatically to EDIT MODE. Where sequential field numbers 
are being used within datanames, this command provides an 
easy alternative method of ascertaining the coordinates of 
any - field. 



Wn 


r 


c 


NOTES: 


Window Commands 

The window defines the area (full lines) to be processed by 
FORHS-2 when generating DDS text. By default the window is 
the full screen. Where window start or end is other than 
staff of end of screen,, a delimiting line* of hyphens may 
optionally be displayed on the line just outside the window, 
e.g. if window starts in line 4, delimiters appear along the 
length of line 3. 

The principal use of the window is to allow a form to be 
created in situ, but save memory by avoiding the description 
of blank lines at the top of the screen. 

NOTE: 

Where window is used in this way the generated record 
name incorporates the start line number of the window 
which can then act as a guide to the programmer, using 
the CIS COBOL ACCEPT/DISPLAY AT coordinates facility. 

The detailed commands give the user very comprehensive window 
formatting capability as follows: 

W (or WO) positions the cursor at current window start. 
This is the equivalent of the HOM C^s.) key when the 
window facility is in use. 

W1 sets start of window to current line with delimiters on 
previous line 

W2 sets end of window at end of current line with 
'delimiters on next line. 

W3 sets start of window to current line without delimiters. 

W4 sets end of window at end of current line without 

delimiters* 

W5 displays delimiters preceding current window start. 

W6 displays delimiters following current window end. 

W7 erases start delimiters and restores any Work Screen 
data to display. 

W8 erases end delimiters and restores any Work Screen data 
to display. 

W9 positions the cursor at current window end. 


1 . 

2 . 


Delimiters do not corrupt Background/Foreground contents. 

The output Screen Image will include the full Foreground part o 
the Work Screen without delimiters, irrespective of whether 
window has been defined. This could be used to include annotatio: 
on the Screen Image which does not affect DDS generation. 
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3. 


A useful purpose for the window facility would be if a form is 
required to be displayed in two stages: the first 10 lines then 
the second 10 lines. This could be created as a single Screen 
Image including both sections of the form, . and the programmer 

couid window in on the relevant portions as required when the 
DDS text is generated. 


WORK PHASE COMPLETION 


To complete the Work Phase of FORMS-2, the user selects Command Mode, keys 

the SPACE character and then the RETURN character. The SPACE character is 

the command to release the Work Screen for processing. 

F ^^ S ~ 2 com P letes the Work Phase (depending on the file selection at screen 

102) as follows: 

1* ^ this is a variable data field definition Work Phase (Option C or D 

at screen W01), validation then occurs with the message: 

WORK SCREEN VALIDATION in progress - DO NOT press RETURN 

2. If DDS file generation is selected at screen 102, the source code 

produced is echoed to the screen as it is- written to disk. If the S9 
command was specified processing stops after each line of code to 
enable changes to be made as required. This is recommended only if 
special requirements dictate its use. 

3. If a screen image file was requested at screen 102, the screen image is 

echoed to the screen as it is written to the disk file. The identity of 

the created file is displayed and the user must press RETURN to 
continue. 

4. ^ Screen W01 is redisplayed so that the run can be terminated or 

continued. 

NOTES: 

1. During validation of variable data only those characters listed in the 
description of text—types are permitted (plus space). If any other 
character is encountered, an error is notified by the validation 
routine by alternately displaying "?" and the offending character to 
give a flashing effect. This error indication then ceases and FORMS-2 
returns to Edit Mode with the cursor positioned under the erroneous 
character. The user must reissue the SPACE command after making any 
corrections. 

2. If the Standard Compiler option is taken at Screen 101, FORMS-2 will 

allow editing characters but will not vet that the combinations of 
these are valid; CIS COBOL editing rules must therefore be obeyed to 
ensure error free code. Note that these fields should be separated by 
spaces. If the Compact Compiler option is taken, editing characters 
are not allowed and .full validation is performed. : 

3. Only Foreground data is output to the Screen Image file. 



CHAPTER 4 


DATA DESCRIPTIONS 

This Chapter describes the CIS COBOL Data Descriptions that FORMS-2 can 
generate in the- file filename.DES, and' a knowledge of CIS COBOL Is a 
prerequisite for reading it. 

The CIS COBOL extensions to the ACCEPT and DISPLAY verbs allow comprehensive 
screen handling to be included In a user application. (See CIS COBOL 
Language Reference Manual). Programming the necessary data description 
statements can be tedious and expensive in terms of programmer time, 
particularly since it is very prone to simple errors. 


FORMS-2 simplifies the production of error-free data descriptions by allowing 
screen layouts (forms) to be specified in the most convenient way, namely by 
setting them up in situ on the screen as described in Chapters 2 and 3. If 
the facility is invoked by selection of an appropriate option at screen 102 
during the Initialisation Phase, FORMS—2 automatically converts this Input to 
tf? necessary CIS COBOL statements and outputs these to a ’data description 
(DLo) file. The user merely incorporates this code in his source 
appiication code by means of the CIS COBOL COPY verb and uses record-names 
and data-names consistent with those ’generated by FORMS-2. 


RECORD-NAME AND DATA-NAME GENERATION 

At Initialisation screen 101 a base name is requested from the user. This 
Is a 6-character field into which the user enters any name of his choice 
consistent with COBOL data naming (See CIS COBOL Language Reference Manual). 
This base Is then used to generate the COBOL data-names. 

RECORD NAMING 

f0nnat ^aerated by FORMS-2 for inclusion in the 
user s CIS COBOL source program for screen formatting Is as follows: 


( 


bbbbbb-rr (01 level) 
where: 


™J>*>bb ±S the 1-6 characte * base specified at screen 
IN01 

rr is the record number, starting at 00 in the first 

Work Phase and Increasing by one for each subsequent 
Work Phase. 


NOTE: 


C ?r ndS USed to defil ' e a ' rtndow carting in other 

tnan line 1 then the record-name generated will be: 

bbbbbb-rr-11 

where 11 is the line number. This serves as a useful reminder to 
programmer when coding the appropriate ACCEPT /DISPLAY 
statements. 


4-1 



DATA NAMING 


"El* data ~ narae structure generated by FORMS-2 for Inclusion In the 

Lib COBOL source program for screen formatting is as follows: 

bbbbbb-rr-nnnn 


where: 


nnnn is the sequence of this field within the screen, 
starting at 0001, 


iZ < ma7 bS m °5 e couvenient to the programmer to have the screen 
oor inatas incorporated in the data-name rather than a field sequence 

number. This can be achieved by use of the G command during the Work Phase. 


PICTURE GENERATION 


Generation of PICTURE clauses by FORMS-2 depends on the type of text selected 
at screen W01 at the start of each Work Phase. Note that FORMS-2 will force 
field boundaries .at the end of each line in order to be compatible with ^ 

certain types of CRT. -i J 

FIXED TEXT 

At the end of a fixed text Work Phase FORMS-2 generates only FILLER areas or 
named alphanumeric fields with associated VALUE clauses. 


i? T B T 0 ^ interactive ACCEPT and DISPIAY verbs operate only on named 
fields, FILLER areas are left alone. The time taken to display a screen 
depends both on the size and also the number of constituent fields. 


When processing fixed text screens, FORMS-2 by default generates FILLER 
wherever multiple spaces appear.- This default can be altered by means of 
the J command described in Chapter 3. Alternatively _ (underline) can be 
used to force inclusion of spaces within a VALUE clause. The default 
character used for this purpose can be changed by means of the M command 
described in Chapter 3. 

VARIABLE DATA FIELDS 


At the end of a variable data Work Phase FORMS-2 generates alphanumeric, 
numeric or numeric edited fields depending on the actual characters keyed by 
the user (see Chapter 3). These are usually normal CIS COBOL picture 
characters 9 and X but note the additional use of 8 and Y as alternatives to 
9 and X; and also the exclusion of S, V and P as described under 
Variable Data in Chapter 3. 
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EDITING THE DDS FILE 


Lv mally the DDS output from FORMS—2 should be all that Is required. Where 
special circumstances dictate the use of particular datanames or the 
disallowed picture characters, the S9 command (See Chapter 3) will allow DDS 
lines to be edited prior to output. Alternatively a conventional text editor 
can be used to edit the file. However note that this editing process must 
be repeated if ever the form Is amended by means of FORMS-2. 

It is also possible to suppress completely the DDS output for a particular 
Work Phase by means of the SI command. Note that if this is used the record 
number incorporated in data—names will still be stepped up by 1 for the next 
Work Phase. 


INCORPORATION OF DDS FILE CONTENTS 

4-^ user has to do to- incorporate the generated data descriptions 

into the application program is to copy in the DDS file using the COPY 
statement available in CIS COBOL. This Is described in the CIS COBOL 
Ll guage Reference Manual. 

xhe COPY statement to incorporate the DEM01 sample forms designed in 
Chapter 7 would be: 

000000 COPY "DEMO1.DDS". 

and would be coded within the Data Division. 

This statement is included in all Check-Out or Index programs generated,, and 
any of these can be referred to for an example.’ 



( 
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CHAPTER 5 


THE CHECK-OUT PROGRAM 

This Chapter describes the Check-Out program that FORMS-2 can generate 
automatically while generating the created forms. The Check-Out program 
enables the user to: 

* Validate the DDS file 

* Demonstrate the operation of the proposed application 

* Check the use of his forms for data entry 

* Check the use of his forms for data amendment 


The Check-Out source code which is in CIS COBOL includes a COPY statement 
for the DDS file exactly as it would be coded in the user's application and 
is therefore a true validation of the DDS file when compiled. 


NOTE: 

FORMS-2 always' generates valid code for the Compact CIS COBOL option 
with which numeric-edited fields are not allowed. However, if 
numeric-edited fields are Included in the Variable Data fields of a 
form, error free code is not guaranteed with Standard CIS COBOL. 
Compilation is necessary to achieve full validation of numeric-edited 
fields. If numeric-edited fields do cause compilation errors, use can 
be made of the FORMS-2 Screen Image facility to recall the offending 
screen and alter the Variable Text / numeric-edited fields as necessary. 


The Check-Out program logic is a sequence of DISPLAY or ACCEPT statements 
for the screens defined in the FORMS-2 run, in the order in which they were 
created. Therefore by entering all required forms in a single FORMS-2 run, a 
demonstration program using all the forms can be simply and rapidly created 
with no programming necessary. For a complex application the best method 

rnfwc o t0 c ^_ eate each forra 111 isolation, using screen image output only. 
FORMS-2 can then be run again to produce the required Check-Out program, 
using the facility to re-input screen images (the F command and the D option 
in the subsequent screen display). Use of this facility would also enable a 
complex sequence of screens to be set up for demons tratlbn purposes 
Incorporating the same screen more than once. 


After passing through the sequence of screens, Check-Out gives the option of 

J hS W ?i 0l l sequance * 0n the second pass previously entered data is 

initial 5 ^ allowln S the user to check the use of his forms for both 
initial data entry and data amendment. 
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C HECK-OUT PROGRAM GENERATION 

generation of the Check-Out Program. 

The source code of the program is written to a file named: 
basename.CHK 

where: ’ entered h 7 the user at street 101 during the 



CHECK-OUT PROGRAM COMPILATION 


The program is then compiled from the CHK file, 
present during compilation: 


The following files must be 


oasename.DDS - the DDS file produced in the FORMS2 run. This must be 

on the drive selected at Screen 102, or the logged drive 
if none was selected. 


FORMS 2.CHI 
FORMS 2.CH2 


the skeleton for the Check-Out program on the logged 
drive. 


The Check-Out program is then compiled in the usual way by enterine the 
standard CIS COBOL compile command for your Operating System ^.th the source 


basename.CHK 
See Appendix D 


Details of compilation using the CIS 
CIS COBOL Operating Guide. 


COBOL Compiler are given in the 



/ 
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CHECK-OUT PROGRAM RUNNING 


LOADING 

The program can be loaded immediately after compilation by use of the 
standard 0/S run command and the name of the intermediate code file;- 


basename.INT 

However, to be able to load directly in subsequent use the = parameter of 
the run command should be used and the SAVE file renamed. (See Appendix D 

for Operating System specific commands). Thereafter the direct load command 
can be used. 


CHECK-OUT PROCESSING 

The basic function of the Check-Out program is to display the fixed text 
fields of the form and enable data to be entered into the variable data 
fields of the form in the sequence in which the screens were created. 

However the detailed logic is slightly more sophisticated. The following 
notes make references to the options taken for screen type at Screen W01, 
and these are discussed in Chapter 3. 

Fixed Text Screens 

The fixed text of a form is displayed. If there are two consecutive fixed 
text forms, Check-Out pauses after the first display until the user presses 
RETURN. 

Fixed text on clear screen 

If option A was taken at creation of the form, Check-Out clears the CRT 
before displaying the screen. 


Fixed text on last screen 

If option B was taken for the creation of the screen, any text displayed 

remains on the CRT except where it Is overwritten by the text of the new 
screen. 


Variable Data Screens 


An ACCEPT statement is issued for a variable data screen, allowing the user 
to enter data in the unprotected areas, (i.e. the fields specified by means 
of X's and 9's etc.). 




T , CheCk -, the eXtentS of the fields * For numeric fields they can also 
check that only numeric characters may be entered, and the effect of 
entering the left zero fill character (Use of the " " rliarar-to -f 

S tateraent) ^ LangUage ^eferanca „anual un d„ Th« ACCE^ 


On other than the first pass through the sequence of screens 
entered data is redisplayed before the ACCEPT is issued. 


the previously 


If the variable data screen includes numeric edited fields, the ACCEPT for 
the screen is followed by a corresponding DISPLAY to show the effect of the 
editing or normalisation performed by the CIS COBOL run time system. Note 
that the normalised fields are not automatically echoed to the CRT. 


CHECK-OUT COMPLETION 

displays * 6 set l uence of screens has been passed, the Check-Out program 


CHECK-OUT completed 
Repeat? [N] (Y=Yes) 

If It is required to repeat the sequence of screens. Key Y and press RETURN. 
Otherwise simply press RETURN to take the default to terminate the program. 
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CHAPTER 6 


SCREEN IMAGE FILE 

This Chapter describes the Screen Image file that FORMS-2 can generate in 
addition to (or instead of) the CIS COBOL data description statements 
described in Chapter 4. These files contain exact text images of the user 
described forms. These form images can be: 

* Used to provide the basis for amendments to the form. 

* Printed to yield printed copies of the form. 

Used as a means of communication between the system designer and 
the applications programmer. 


SCREEN IMAGE FILE GENERATION 


The facility is invoked by selection of an appropriate option at Screen 102 
during the Initialisation Phase. Note that the default option will cause 
screen image output. 

Screen images are output to files named: 
basename.S nn 


where: 


basename is the name entered by the user at screen 101 
the Initialisation Phase, nn is a number 00 —' 99 


?T he , d l f3Ult fl f ename can te overriden by issuing the S3 command during the 
Work Phase. This causes FORMS-2 to request input of the required filename 
during processing of this Work Screen. 

A separate file is created at the end of .each Work Phase, the numeric part 
of the name (nn) incremented by 1 each time. A screen image file Is 
structured as a standard line sequential file with a record for each line of 
the screen. Each screen inage contains only text entered during the Work 
Phase in which it is generated (i.e. Foreground data - see Chapter 3). Thus 
for a variable data Work Phase the output screen image contains only X's, 
9 s, Y s and 8's. * 

It Is possible to suppress the screen image output from any Work Phase by 
issuing the S2 command during that phase. If this command is used the 
numeric part of the filename extension will still be updated for the next 

descrip" on^D^) . Une “ Ith ^ reC ° rd nu " b " 1 ”S "“B" th. generated data 
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FORMS-2 MAINTENANCE 


CIS COBOL Data Description statements have been generated from a 
user-designated form by FORMS-2 in a DDS file. There is likely to be a 
continuing requirement to make corrections and adjustments to maintain the 
form. The DDS file can be maintained using a conventional text editor, but 
this involves the high risk of simple but expensive errors which FORMS-2 
eliminates. Therefore the user's form is output to a screen image file as 
an exact image, and FORMS-2 provides the facility to read screen images back 
from disc to allow for further amendment. This is achieved by running 
FORMS-2 and issuing the FF command once the first Work Screen is reached 
(see the Fx Work Screen Manipulation command in Chapter 3). The user is 
then prompted for the identity of the screen image required. FORMS-2 reads 
the screen image file into the Foreground area of the Work Screen and then 
returns to Edit Mode. The form is then displayed as if it had just been 
keyed and any required amendments can be made before releasing the screen 
for processing by means of the SPACE command. 

NOTE: 

When FORMS-2 is used for maintenance in this way it will overwrite the 
existing files, but only after issuing warnings that the files already 
exist, and receiving confirmation to proceed. For screen image files 
FORMS-2 offers the facility of specifying an alternative file identity 
if the user wishes to retain the old version. 


PRINTED FORMS 

The screen image files are created as line sequential files in accordance 
with the conventions of the operating system. Standard software can 
therefore be used to print them, and the resultant hard copy will be an 
exact image of the user's form with no risk of transcription error. 


FORM IMAGES IN' THE DESIGN PROCESS 

Form images can be used as a step within the applications design process, 
providing a valuable part of the designer/progr amm ar interface. 

For interactive applications, design of the user interface (i.e. the screen 
layouts or forms) may take place well in advance of the actual program being 
written, and the forms designer need not have any detailed knowledge of 
COBOL.• 

FORMS-2 enables a non-technical user to generate valid CIS COBOL statements. 
An experienced COBOL programmer can make use of commands available to 
generate the most efficient code (e.g. by influencing the number of fields 
to be displayed). 

Thus it may sometimes be advantageous to use screen image output alone as an 
intermediate stage in the design process, with the progr amm er using the 
image files as input to FORMS-2 to produce the final DDS file. If FORMS-2 
is used in this way, both fixed text and variable areas could conveniently 
be indicated on a single fixed text screen. The programmer can easily then 
use this screen to generate the DDS file, and the form designer does not 
need to know any details of COBOL data field specifications. 
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CHAPTER 7 


FORMS-2 USER SCREEN 
GENERATION EXAMPLE 



It is required to build the data entry form: 


NAME [ 

address [ 

[ 

[ 

TEL [ ] 



w ere NAME and ADDRESS are alphanumeric fields and TEL is a numeric field 
At data entry time after insertion of the name, address and telephone 
number P. Smith, 8 George Street, Plymouth, Devon, 88326, the fora is 
required to appear as: 



7 - 1 






It is assumed the system is booted, the’issued files have been copied to the 

CIS COBOL 0/S system disk so that the CHK file contents can be compiled 

(Step 13), and that FORMS—2 has been configured to your CRT. 

The following steps must then be carried out: 

The operator loads FORMS—2 by entering the load command for your 0/S. 
Note that the program name for load purposes is F0RMS2. 

See Appendix D for specific Operating System format for this command. 

2. FORMS-2 displays Screen 101 requesting a six-character base for 
file-names and data-names followed by four other questions. If the CRT 
is standard (24 lines) and the Standard CIS COBOL compiler is In use no 
further questions need be answered for this screen. Key DEM01 followed 
by the RETURN key if the default screen size (24)' is correct and the 
standard compiler is in use. 

3. FORMS—2 displays Screen 102 to request the output file option type and 
drive number. Key RETURN to accept the default values. 

4. FORMS—2 displays Screen W01 to request the Screen Type option. Note 
the default "A" and press the RETURN key. 


5. FORMS—2 displays a blank screen. Use the cursor control keys and the 

normal character keys to set up the following text on the screen: 



Press the RETURN key. 
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6. FORMS—2 puts " " in the top left of the screen. Press the SPACE and 

RETURN keys 

7. FORMS-2 processes the screen to create a fixed text form. This takes a ' 
short period and involves the following displays on the CRT: 

DDS source code as generated, followed by a redisplay of the fixed 
text as it is written to the Screen Image file. 

A message is then displayed giving the name of the fixed text Screen 
Image file created. Press RETURN as requested. 

l 

8. FORMS-2 displays Screen W01 to request the Screen Type option. Note 
the default is "C" and press the RETURN key. 

9. FORMS-2 displays the fixed text screen as background data. The 
operator then uses the cursor control keys and keys in X’s and 9*s 
alone to set up the screen as follows: 

r NAME [xxxxxxxxxxxxxxxxxxxx]. ~ 

ADDRESS [XXXXXXXXXXXXXXXXXXXXj 

-[xxxxxxxxxxxxxxxxxxxx] 

[XXXXXXXXXXXXXXXXXXXX] 

TEL [9999999] 



Press, the RETURN key 


10 . 


11 . 


FORMS-2 displays "_’* in the top 

SPACE and RETURN keys. There is a 
the screen content, during which 


left hand of the screen; press the 
short pause while FORMS-2 validates 
the following message is displayed: 


WORK SCREEN VALIDATION in progress - DO NOT press RETURN 


FORMS-2 processes the X’s and 9’s to create 
the following displays to the CRT as It goes 


a variable data form, with 
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12 . 


13 . 


14. 


15. 


16. 


NOTE 


DDS source code as generated, followed by a redisplay of the 
variable text as it is written to the Screen Image file. 


A message is then displayed giving the name of the variable data 
image file created. Press RETORN as requested. 


screen 


FORMS-2 displays screen W01 again. Key ! followed by RETURN to. 
terminate the run. FORMS-2 displays the names of the DDS and CH.K files 
created and displays an END OF RUN message. 


Compile the check-out program by typing the standard CIS COBOL 
compilation command for your Operating System with the directive 
COPYLIST and file name DEM01.CHK (See Appendix D). 

When the compilation finishes, the two screens can be checked out by 
using the standard run command for your Operating System to load the 
intermediate code from file: 


DEM01.INT 
See Appendix D 

The Demonstration program will then run. The fixed data form Is 

displayed on the screen. The variable data form is used to accept 
data. r 


y° urself that the cursor can only be placed in the variable 
fields, and that the data keyable -Into the fields depends on whether X 
or 9 was specified. The effect of left fill character may also be 
tested. 

When satisfied, press RETURN to complete. A message is displayed as 
follows: 

CHECK-OUT completed 
Repeat? [Nj (Y=Yes) 

Press RETURN to accept the No default and complete. 

The Check-Out program displays: 

END OF FORMS2 CHECK-OUT 



*'' i 



The variable form is used in the demonstration for ACCEPTing data. In 
practice the form can be used for DISPLAYing data as well as ACCEPTing 
it. The demonstration shows the extent and type of each field which 
will be the same in DISPLAY as well’ as ACCEPT. A useful technique for 
clearing just the variable data fields on the screen Is to move spaces 
to the ACCEPT record and then display it. 
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17. You can now examine the disk files: 


DEM01.DDS 
DEM01.CHK 
DEMO l.S 0(2 
DEMO1.S01 
DEMOl.INT 
DEM01.LST 


to check the output from FORMS-2 during this use. 

18. You have now learnt how to use FORMS—2 to create screens of fixed and 
variable data automatically for inclusion in your CIS COBOL program. 

If you continue with steps 19 onwards you will learn to update both the 
fixed and variable data screens already created by moving them from 
background into foreground. 

19. Reload FORMS-2 by typing the load command for your 0/S. See Appendix D. 

20. FORMS-2 displays Screen 101 requesting the six-character file- and 
data-name base as at step 2. Answer the questions as necessary at step 
2 and press RETURN. 

21. FORMS—2 displays Screen 102 requesting the output file option type and 
drive number; key RETURN to accept the default values. 

22. FORMS—2 displays the message: 

DEM01.DDS already exists 
overwrite? [N] (Y=Yes) 

Key Y and press RETURN ' 

NOTE: 

If the No default Is entered here, the run Is abandoned.; 

23. FORMS—2 displays the message: 

DEM01.CHK already exists 
overwrite? [N] (Y=Yes) 

Key Y and press RETURN 

NOTE: 

If the No default is entered here, the run is abandoned. 

24. FORMS-2 displays Screen W01 again. Press RETURN to accept the default 
option A. 


25. FORMS-2 displays a blank screen in Edit Mode. Press RETURN to enter 

Command Mode, then F followed by RETURN to invoke the 

Foreground/Background selection screen. (We want to update our form so 
it must be in Foreground). 

26. FORMS-2 displays the Foreground option screen. Enter option F then the 
filename DEM01.S00, then press RETURN. 

27. FORMS-2 displays screen W02 again. Select option A to return to Edit 
Mode. 

28. FORMS-2 displays the fixed text screen (previously created at step 5). 
Move the cursor to the word ADDRESS and overtype it with ABODE. 
Remember to overtype the extra characters SS with spaces, and then 
press RETURN. 

29. Enter the SPACE command, then RETURN. 

30. FORMS-2 displays the following message reminding you that your altered 
fixed text Screen Image is about to overwrite your previous Screen 
Image In the file: 

DEM01.S00 already exists 
overwrite? [N] (Y=Yes) 


NOTE: 

If the No default was entered here, a file Identity for a new 
‘ Screen Image would be requested. 

31. FORMS-2 displays the screen image and then displays the file name as 
follows: 

File created » DEM01.S00 
Press RETURN to continue. 

32. FORMS-2 displays screen W01 with option C as default to enable 
specification of variable data fields. Enter RETURN to accept the 
default. 
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33. FORMS-2 displays the altered fixed text as followed to assist in 
defining the variable fields. 



Press RETURN to enter Command Mode then F then RETURN. 


34. FORMS-2 displays the Foreground/Background Operations screen again. 
Enter the option F then the file name DEM01.S01, then press RETURN to 
retrieve your variable text created at step 9. 

35. FORMS-2 displays Screen W02 with option H as default. If you press 
RETURN to accept this default, FORMS—2 displays the current Foreground 
contents. Note that this is only the X's and 9's that define the 
variable data fields (the fixed text Is in the Background area). Press 
RETURN to re-invoke Screen W02. 

36. FORMS-2 displays Screen W02 with A as default. Press RETURN to accept 
.this default. 


37. FORMS-2 displays the whole form again. (We could now alter the 
variable text fields if required). 

You have now seen facilities to retrieve fixed text and variable text 
from previously created files. Note that with a small number of 

variable data fields such as in this example it would, in practice, be 
easier to re-key them. 

38. Press RETURN then SPACE then RETURN to process the altered form. Again 
there is a pause while FORMS—2 validates the variable fields. 

39. FORMS-2 produces the DDS file then displays the message: 

DEM01.S01 already exists 
overwrite? [N] (Y=Yes) 
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40. 

A message is displayed as follows: 

V 

■ "N 
" / 


File created = DEM01.S00 



41. 

FORMS-2 displays screen W01 again. This time enter ! 
to complete the run. 

and press RETURN 


42. 

Repeat steps 13 to 16 if you wish to run the Check-Out 
verify the altered form. 

program again to 





•'1 


f 
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CHAPTER 8 


INDEX PROGRAM 

FORMS-2 provides facilities for automatically generating a COBOL Index 
program to create and maintain an indexed sequential file. The input 
required to generate the Index program and use it to maintain files is 
supplied interactively by the Operator through the CRT. 

The user designs a data entry screen using FORMS-2 by specifying the fields 
that will comprise the indexed sequential file records in the usual fixed 
text and variable text work phases described in Chapter 3. 

The user interface to the generated Index program is simply the form 
designed by the user that reflects the desired record structure. Users need 
give no thought to setting up specific 'command 1 areas, but only to consider 
their data requirements. 


It should be noted that the user must have access to the CIS COBOL software 
to compile the source Index program that FORMS-2 produces. 

The generated Index program Is written to the file filename.GEN and provides 
the following facilities required for the creation and maintenance of an 
indexed sequential file. 

* Select records by key field for display (Enquiry by key field) 

Select records sequentially for display (Sequential Enquiry) 

* Amend existing records 

* Delete existing records 

* Insert new records 


The program has been developed so that it is not necessary for the user to 
expilcitiy state the facility to be invoked at any one time; the program is 

able to follow the logic from the way the actual data and cursor position 
are manipulated. * 


^ ,° nl7 the varlable test d *ta is written to the file and 
he fixed text data is merely a template to enable each field to be entered 
separately at data entry time. entered 


A record in the indexed sequential file is constructed by concatenating the 

ar able fieids of the form. In the order in which they appear. The record 

must include a key area by which it can be uniquely accessed. the Index 

:10810 squires that this key area must he at the beginning of the 

ereeld «' V £he , flrS£ integral “ e ™/s In the form, and must not 

exceed 32 characters in length. 


This key area constitutes part of the record data, 
remaining fields are known as the data fields. 


For convenience, the 


Chapter 9 shows the sample application 
and maintain a file of names, addresses 


used in Chapter 4 adapted to create 
and telephone numbers. 



INPEX PROGIAM GENERATION 


An Index program is generated using FORMS-2 as described in Chapters 2 and 


All existing FORMS-2 facilities are present, but logic is incorporated to 

rr T? e USe °f ina PP r °P riate features if the Index Program option is 
takeno The steps Involved are:- p 3 

1. Initialisation 


a. Screen 101 

Specify name-base etc. as normal 

b. Screen 102 

Specify option G for Index program generation. 

2. Work Phase One 

a. Screen W01 

Work Screen Selection - The program forces the default option 'A 1 
for fixed text entry by refusing to accept anything else. (except 
I to abandon the run or ? to display Help screens). 

b. Fixed Text Work Screen 

A blank work screen Is then displayed for input of the fixed text 
form. 


FORMS-2 commands as described in Chapter are available except:- 

G - The generated program relies on the default dataname 

structure. This command is rejected. 

S - It would be inappropriate to switch off DDS generation, 
and this command is rejected. 

W - This feature is not available to the user, and the 
command is rejected. However the program reserves the 
bottom' line for potential use in the generated program 
for system messages ("RECORD NOT FOUND" etc.), and a 
delimiting line of hyphens marks this fact. 

The screen is released for processing by the sequence ’RETURN 

SPACE RETURN , when the fixed text screen has been completely 

entered. 

The Work Screen Selection screen is again displayed. 
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3. 


Work Phase Two 




a. Screen W01 

b. This time the program forces the default option ’C*. 

Variable fields are specified as described in Chapter '3 i.e.* 
X/Y/8/9 and editing characters. At some time before releasing 
this screen it is necessary to define the end—of—key/start-of—data 
bound within the record. This is done by positioning the cursor 
on the first data field, entering Command Mode and keying the ' 
command (i.e. the sequence 'RETURN * RETURN 1 ). 

NOTE: 


A key field cannot exceed 32 characters. 

The screen is' released by the usual 'RETURN-S PACE-RETURN* 
sequence. If the program is not satisfied with the specification 
of the key/data boundary it will return to Edit Mode, 

Upon completion of the variable text screen FORMS-2 completes its 
processing and terminates automatically without any need for the 
termination (!) command. In fact the ! command is only used to 
abandon the run when generating the Index Program. 


FILES GENERATED 

The following files are written to disk by FORMS-2. 


basename.SOO 

basename.DDS 

basename.GEN" 


Screen image file 

COBOL data description statement file 
Source file for the generated Index program. 


r 
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INDEX PROGRAM COMPILATION 


The Index program can now be compiled from the .GEN file in the usual way 
The following files must be present during compilation: 


basename.DDS 


F0RMS2.GN1 

FORMS2.GN2 


the DDS file produced in the run. This must be on the 
drive selected at screen 102, or the logged drive if 
none was specified. 


the skeleton for the generated program on the logged 
drive. 


The Index program is then compiled in the usual way by entering the standard 
CIS COBOL compilation command for your Operating System (0/S) to load the 
Index program from file: 


basename.GEN 


See Appendix D 

Details of compilation using the CIS COBOL compiler are given in the 
CIS COBOL Operating Guide. 

After compilation, the user can run the generated program. 


INDEX PROGRAM RUNNING 
LOADING 

The program can be loaded immediately after compilation by using the 
standard run command for your Operating System to load the program from 
file: 

basename.INT 

However, to be able to load directly in subsequent use the = directive of 
the command must be used, and the SAVE file renamed to basename.COM. See 
Appendix D for the commands for your 0/S and the CIS COBOL Operating Guide 
for fuller details of load directives. Thereafter the direct load command 
can be used. 


DATA PROCESSING FACILITIES 

Immediately the program is loaded, the user designed form is displayed. 

The form remains on the screen throughout a run, processing being controlled 
by manipulation of the data in the variable fields. 

A screen display reflects the structure of a single record. The required 
processing function is instigated by entering data and positioning the 



(7^ ’ cursor as described below, and then pressing the RETURN key. Index program 
messages are displayed in an unused area of the screen as necessary. 

The basic operator functions and Index program messages are described below, 
and will suffice in general use. Details of the Index program 
Interpretation of data manipulation and cursor position follow this 
description. 


Enquiry by Key Field 

Amend key fields only to required key, and press RETURN. The required 
record is displayed. If the record Is not found (i.e. key cannot be found) 
the message RECORD NOT FOUND is displayed. 


Sequential Enquiry 

Simply press RETURN to show next record. If the end of the file is reached, 
A. the message END OF FILE REACHED - RETURN- WILL TERMINATE- is displayed. 


Amend Displayed Record 

Amend data fields only and press RETURN. The message RECORD AMENDED is 
displayed. 


Delete Displayed Record 


Press the HCM or \ key then press RETURN, 
displayed and the data fields are blanked out. 


The message RECORD DELETED is 


Insert New Record 


,C 


(7 


Amend key and data fields as required and press RETURN-. . If- the data fields 
currently displayed do not need changing (i.e. it is required to enter the 
existing data fields under a new key) prior to pressing RETURN 

either press HOM (\) OR press I repeatedly until end of the list data field 
is reached. ' 

The message NEW RECORD WRITTEN is displayed if Insertion takes place. 

If a record already exists with the specified key the current display is 
retained and the warning message RECORD ALREADY EXISTS WITH THIS KEY Is 

to 'tiS L Su“ lltl83 aVallaMe “ thS ^ “• r-tnctU 

1. Force replacement of existing record: 

Either press HCM or press \ repeatedly until the cursor reaches the end 
of the last data field, then press RETURN. 

The record is replaced and, the message RECORD REPLACED Is displayed. 
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2. 


Amend key field and re-attempt the insertion: 

Amend key fields and press RETURN (cursor position is immaterial). 
3. Abandon insertion attempt and display existing record: 

Press RETURN only. 


Terminate Run 


Enquire up to the end-of-file by means of continual sequential enquiry or a 
combination of enquiry by key to a specific record, then sequential enquiry. 

When end-of-file is reached the message END OF FILE REACHED -RETURN WILL 
TERMINATE is displayed. Press RETURN to terminate the run. 


USER REQUIREMENT INTERPRETATION SUMMARY 

The Index"program interprets the- user’s requirements" dapendlrigon the change 
status of key and data fields and the cursor position as follows: 

4 

Key and Data Fields Unchanged 

The function performed depends upon cursor position as follows: 


If an end of-file condition has just been reported, a request to 
terminate the run is assumed .Irrespective of cursor position. 

Otherwise If the cursor has been moved to the HCJM position and a 
record! is currently displayed, a delete request Is assumed. 

If neither of these conditions exists, a request to display the 
next record relative to the 'current 1 position in the file Is 
assumed. 


Key Changed and Data Unchanged 

The function performed depends on cursor position as follows: 

* If cursor is moved to either the HCM position or the last data 
character position, an attempt to Insert a record is assumed, and 
processing is as described under Key and Data Changed 

* Otherwise an enquiry with respect to this key is assumed, and 
either the record Is displayed or its absence is reported. 



Key Unchanged and Data Changed 


V 


r 


This is a request to update the file, and either a new record is written or 
the existing record amended as appropriate. 


Key and Data Changed 

This is a request to insert a new record. However, it is assumed that the I 

user should not overwrite a record without at least being informed of its™ 

presence. Therefore if a record exists with the specified key, a warning 3 
message is displayed, and the subsequent three functions can be performed ■-> 
depending on the change status of key and data fields and the cursor 
position: 

1. Key and Data Unchanged 

The function required depends on cursor position as follows: y/.ZV 

If the^ cursor has. been moved to either the HCM position of the 7 

last data character position, insertion of the new record is a 
forced, and the existing record is overwritten. 

* If the cursor is at any other position a request to abandon the 
insertion attempt and display the existing record is assumed, 

2. Data Unchanged and Key Changed 

An attempt Is made to insert the data under the new key irrespective of 
cursor position. If necessary the warning message will be repeated. 

3. Key and Data Changed 

A normal insert request as described above is assumed. 
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CHAPTER 9 


r 


USER INDEX 
PROGRAM EXAMPLE 


It is required to generate an indexed sequential file that contains records 
of names, addresses and telephone numbers with name as key field, and 
process these records using the form as used in Chapter 7: 


NAME [ 

ADDRESS [ 

[ 

[ 

TEL [ 


c 


] 

] 

] 

] 





NAME and ADDRESS are alphanumeric fields and TEL is a numeric field. 

A? data entr J time after insertion of the name, address and telephone 
miners P. Smith, 8 George Street, Plymouth, Devon, 88326, the form is 
required to appear as: ’ 

r —------------- 

NAME [SMITH. P ] ‘ ‘N 

ADDRESS [8 George Street, ] 

[Plymouth ] 

[Devon 

TEL [88326 ] 


I 



It Is assumed the system is booted, the issued files have been copied to the 

CIS COBOL CP/M system disk so that the Index program can be compiled (Step 

13)» and that FORMS—2 has been configured from your CRT. 

The following steps must then be carried out: 

1. c The operator loads FORMS-2 by entering the load command for your 0/S. 

See Appendix D for specific Operating System format for this command. 

2. FORMS-2 displays Screen 101 requesting a six-character base for 
file—names and data—names followed by four other questions. If the CRT 
Is standard (24 lines) and the Standard CIS COBOL compiler is in use, 
no further questions need be answered for this screen. Key DEM02 
followed by the RETURN key if the default screen size (24) is correct 
and the standard compiler is In use. 

.j'- 

3. FORMS—2 displays Screen 102 to request the output file option type and 

number. Key G then RETURN to select the option for the Index 
^program. 

4. FORMS-2 displays Screen W01 to request the Screen Type option. Note the 
default "A" and press the RETURN key. 

5. FORMS-2 displays a blank screen with the end of window one line up from 
the bottom of the screen and delimiters in the bottom line. Use the 
cursor control keys and the normal character keys to set up the 
following text on the screen: 



NAME [ 

ADDRESS [ 

I 

[ 

TEL { 


] 

] 

] 

] 



1 




Press RETURN key. 

2 a C.-w , 


/ - w- -- 


& 1 Cj •: • 


io 
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" ...; n 


21 

JOciOD 


FORMS-2 puts "_" in the top left hand of the screen. Press the SPACE 

and RETURN keys. ,, ... wc .’ - -- - 


3 1 
iJD 
'll 




FORMS-2 processes the screen to create a-fixed text form. This 'takes a 
short period and involves the following-displays on the 1 CRti-n-cqA 

DDS source code as generated, followed by a redisplay of tha : fixed'text 
as it is written to the Screen Image file. , : smcr-sli? 


A message is then displayed giving the name of the fixed 'text Screen 
Image file created. Press RETURN as requested. \;r’ ^ ■;o_ Ic; 

FORMS-2 displays screen W01 to request the Screen Type option. Note the 
default is "C" and press the RETURN key alb 

r - . ' ..T3om:r SV.'"lh 

FORMS—2 displays the fixed text screen as background data; now hise - the 
cursor control keys and key in X's to fill the NAME variable data 
field. Move-cursor to the first character position Via- ;the-'address 
variable data field and then press RETURN to ent-er-Command 2 ErTterr - 
* to set the first character position in the ADDRESS variable data 
field as the start of data position and then ; press RETURN.' 2 Continue to 
enter X's and 9's to fill the data fields as shown below; 2 ' ‘ v0 " 


I* 


.e 


r 


NAME 

ADDRESS 


TEL 


[ XXXXXXXXXXXXXXXXXXXX] 
[XXXXXXXXXXXXXXXXXXXX] 
[XXXXXXXXXXXXXXXXXXXX] 
[XXXXXXXXXXXXXXXXXXXX] 
[9999999] 


n O' £ .-T rv >■ 


Note that you have now specified the NAME variable data field as the 


( 

l 

I -• 


V 


10 , 


11 . 


b 


SPACE ant^RFTmw v— in the to P left hand of the screen;-press = , the 
RETURN keys. A message is displayed showing validation in 

progress. 

FORMS-2 processes the X’s and 9’s to create a variable data form, with 
the following displays to the CRT as it goes: 

DDS source code as generated, ..followed by a redisplay of the 
ariable text as it is written to the Screen Image file. 
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12 * sc^u* automatically after displaying the end of run 

Files created DEM02.DDS 
DEMO2.GEN 
END OF FORMS2 RUN 


13 fi C< ^P a « * he Index Program by typing the standard CIS COBOL compilation 
^command for your Operating System (O/S) using the Index program source 
rile name: 


• b or ,. DEM02.GEN _■ .... • 

and the COPYLIST directive of this command. 

14. When the compilation finishes, the generated Index program DEM02 can be 

' :* un b ?-“ se of the standard run command for your 0/S to load the program 
intermediate code from file: : 1. 


DEM02.INT 

* :.£i 

The compilation and run commands for your 0/S 
Appendix D. 


> .- 

are described 



15. The generated Index DEM02 program will then run. Your screen 
designed in step 9 is displayed. The fixed text form is displayed 
the screen. The variable data fields are used to accept data. 


as 

on 


16. You are now ready to practice all the file maintenance commands. The 
next steps show all of these in practice but you can vary the sequence 
or add any steps to these once you have gained confidence. 


17. To insert the first record into the new indexed sequential file, simply 
key names and addresses into the screen format terminating each record 
by RETURN key. (Remember to enter surname first before Initials to 
keep the application feasible). 


13. Enter two more complete records overkeying all data from the previous 
record, because all displayed data is written to the file. 

19. When three records have been inserted, you can amend the second record 

as follows: '' 

Enter the name field as for the second record added followed by RETURN. 
The whole record is displayed because the name is the key which finds 
that record. You have now seen the enquiry facility operated. All 
records can be recalled as easily as that. 

20. Change the town field and press RETURN. The message RECORD AMENDED is 
displayed. 

21. • Press RETURN and the third record is diplayed. You could progress 

through a whole file in this way. 


22. To delete the third record entered move the cursor to HOME position 
and press RETURN. The fields clear showing deletion of that record, 
and a message RECORD DELETED is displayed. 


o 






23 



Press RETURN. The Index program attempts to show the next record but 
one does not exist so an end-of-file message is shown: END OF FILE 
REACHED - RETURN WILL TERMINATE. UIC.'U 


J - - 

24. Press RETURN with end—of—file showing and termination occurs 


You have now :; «een the record handling method demonstrated and” Can^ i‘f~" 
you wish, generate a more ambitious Index program or reload as at step 
14 and familiarise further with record manipulation. . 



25. Before you do this, however, you can examine the files on the disk. 



DEM02.DDS 


DEM02..GEN - - 
DEM02. INT - 
DEMO2.LSI ’ 

r 

NOTE: 

DEM02.IDX 
DEMO 2-. DAT 


Data Description Statements for form (COBOL 
source) 

Source code of Index program : DEM02 
Intermediate code —of Index *'program DEM02 
List file code of -Tridex program "DEMOS"” 5:: r ” 


Index file 

Sequential data file - 



.SOKSC 

Indexed Sequential file 



C 


The two files DEM02.IDX and DEM02.DAT constitute the Indexed Sequential 1 "'' 
file created by the generated Index program,-and- in anyfurther - runs of 
this program -these two files wilLJbe usedj sitaxy " v _ an T .cesroa an.'- 




C 
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APPENDIX A 


INITIALISATION SCREENS 

The Initialisation screens 101 and 102 shown below are displayed automatically 
at Initialisation Phase (See Chapter 2). 


FORMS2 VI. 1 

INITIALISATION 

PHASE SCREEN 101 

FORMS2 PARAMETERS: 




DATA-NAME & FILE-NAME 

t 

] (1-6 alphanumeric characters) 


CRT lines 

[24] 

(22 or 23 or 24) 


CIS COBOL Compiler 

[A] 

(A = CIS COBOL Standard) 

(B = CIS COBOL Compact ) 

SPECIAL-NAMES 

clause: 


(CIS COBOL Standard only) 


CURRENCY SIGN 

m 

(ANSI currency signs only) 


DECIMAL-POINT 

[.] 

("." or V*) 

Press RETURN 

when complete 




FORMS 2 VI.1 XN 

FILES TO BE CREATED: 

FILE COMBINATIONS 


INITIALISATION PHASE 


SCREEN 102 


file drive 

Press RETURN when complete 


(A * DDS) 

(B = DDS & CHK) 

(C = DDS & CHK & Snn) 

(D - DDS & Snn) 

(E =* Snn) 

(F =* No files output) 

(G =» DDS & Snn & GEN) 

(SPACE = no drive prefix) 

(A thru H = :F0: thru :F7:) 









APPENDIX B 


WORK SCREENS 

The Work Screen W01 shown below Is displayed at the start of the Work Phase. 
Work screen W02 can be summoned by the F command (See Chapter 3). 


FORMS2 VI.1 

WORK SCREEN SELECTION: 

SCREEN TYPE [ ] 


Fixed Text allows: 
Variable Data allows: 

i 

Press RETURN when complete 


WORK PHASE SCREEN W01 


(A = Fixed text on clear screen) 

(B = Fixed text on last screen) 

(C = Variable data redefines last screen' 
(D = Variable data without redefinition) 
(I = Complete this FORMS run) 

All characters 

X or Y to define alphanumeric fields 
9 or 8 to define numeric fields 
edit chars to define numeric edit fields 
(CIS COBOL Standard only) 


FORMS2 VI.1 WORK PHASE 

FOREGROUND/BACKGROUND OPERATIONS: 


SCREEN W02 


OPTION 


[ ] 


NOTE: 


FILE-NAME 

Press RETURN when complete 


(A = Re-enter EDIT MODE) 

(B = Clear FOREGROUND) 

(C - Clear BACKGROUND) 

(D = Merge BACKGROUND Into FOREGROUND) 

(E =* Merge-FOREGROUND into BACKGROUND) 

(F =■ Merge screen image into FOREGROUND) 
(G * Merge screen Image into BACKGROUND) 
(H - Display FOREGROUND) 

(I * Display BACKGROUND) 

(J ~ Display screen image) 


(H & I & J display until RETURN pressed) 


] 


(Screen Image file) 
(F & G & J only) 


B •» 1 
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APPENDIX C 



HELP SCREENS 


The four^screens contained in this Appendix (HOI to HOA) can be summoned for 
lsplay by the Operator keying ? from Command Mode at any time'. They ar'e' 
intended for advisory purposes only. The command ?n (where n is the number 1 to 
A corresponding to the screen number HOn) summons a particular Help Screen. 



FORMS2 VI.1 

GENERAL COMMAND SUMMARY: 

‘ SPACE 

? 

?n 

Q 

I 

x 

* 


HELP SCREEN 


SCREEN HOI 


Process the work screen 
Re-enter EDIT mode 
Display the next HELP screen 
Display the nth HELP screen 
Re-enter WORK PHASE screen selection 
Terminate FORMS run immediately 
Position commands at EDIT mode cursor 
Indicate Index Form’s data area start 


NOTE: . SPACE Is the command to process the EDIT mode screen 


HELP option 


[ ] (_ 
(? 
(I 


Press RETURN when complete 


Re-enter EDIT mode) 

Display next HELP screen) 
Abandon FORMS2 run immediately) 


r 


r 


FORMS2 VI. 1 


HELP SCREEN 


SCREEN H02 


f' 


MANIPULATION COMMAND SUMMARY: 


V 


HELP option [ ] 


Press RETURN when complete 


F 

Fx 

0 

01 

Cn 

Dn 

In 

Kn 

An 

Un 

Vn 

(_ 

(? 

0 


Invoke FOREGROUND/BACKGROUND manipulation 
Invoke FORECROUND/BACKGROUND option "x" 
on automatic WORK screen preparation 
Turn off automatic WORK screen preparation 
Insert n spaces at cursor position 
Delete n characters at cursor position 
Insert n blank lines before curosr line 
Delete n lines including cursor line 
Overwrite n lines with data of cursor line 
Move cursor up n lines 
Move cursor down n lines 

* Re-enter EDIT mode) 

■ Display next HELP screen) 

■ Abandon FORMS2 run immediately) 


C - 1 



FORMS2 VI.1 


HELP l Wdl‘E& 


SCREEN H03 


PROGRAMMING COMMAND SUMMARYV' ,uY fe;I * 

■ • * M3C9J2 ?KITASHfej-- 

vi - Give datanames screen coordinates suffix 

fens nscl .strrgiirror o' fc - sa £\v m sequentialina&fcier-sti'f f ix 

0 -7 .... c-T' ,, r -v /'-sc', r-to n consec.-.spaces; iapif lired-tea 

" .* 'Mi - Interpret ’V as "space". 


ro! slx-nO 


M * - Interpret "x" as "space". 

ni?£ 7 sqC' JOi'G'J LID *Vn “ n^ ai S®i' Y BP'^^ ous Sn command fens afence::--. 

51 - Inhibit DDS & CHK output at next processing 

52 - Inhibit Snn output at next processing 


- — a.*. ucai. 

bsaassq sd bluer'8 f-nsisv • ups -%&P a V&:-f9? Soft file-name 1 'at" -Tihxt'' processing 

29 3 Line edit DDS output at next processing 
p = Display cursor position coordinates 

»d3 ,&,<£%! .bsbuloai: •3C£ E;qfflOiq 2'0 sr.'J ,8sor;- vpoa sri: vfefe-is'c 

HELP option [_J (_ . Re-enter EDIT mode) .xiboeqqA ci;:~ iu 


(? “ Display next HELP screen) 

/ 9 _ A 1 1 ____ 1 , . 




FORMS2 VI. 1 


'I QAC 


:ai fersms-'cn i.-d' , bsues/ a: 


HELP SCREEN 


WINDOW COMMAND SUMMARY: 


fcos. Ix9i bexfei 7uo\ jEosio oi 


hns IOKSa ,sei0Oo io 


HELP option [J (_- Re-enter EDIT-mod^., TUO-2DS07' 

(? - Display next HELP' sCYSSfij'*^" 

slds^BV ifl* *2333 fesxfei 71 

Prass-RETURNi^^f. dbmpLete' ’"0*"feqmco ^ fc - b£cI 9<f 8C ‘ &; 


»Xl:Z2 :03 HUS^S? H ° 4 


W - Position cursor to current, shadow.,-start 
Wl - Start wind&Sfcjat'. curi4r--Lise-— 

W2 - End window at cursor lipe „ rjk 

o 03 HJi'* Sta^t ^window at cursor ; line, ^ n 0 .'dillm' s 
W4 - Eia-wiftas^at^ttliSI l£he; E no dele's" 

W5 Display start windoy, delimits- x r c? 

W^ 4 *-Display Shd'-R&nlow delimiters' 

> ^S,a“ l e "5n?h 7 i at tD§y?.fFH it ten ei py r starts, delim', 
V78 - Re-display data overwritten,by 9 ^p^.,delim's 
W9 - Position cursor to current window end 


»TffI. s.-t&t- 5 r.d x ;2TH HU/M TICS 


SOMSC bus JfOMSG .sairoc feo sn 


CS ups3 CD'S 


al v 1 ;■ s-sr ih 


£ HUH TT.TC 
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OPERATING FORMS-2 WITH YOU,R .^g | 

OPERATING SYSTEM _ ... 

- -i. r , ££.jer.xcicor' .csniJSD t-v/D « %. j 

This Appendix-describes: .the commands- 3 thaf yjfdu’Vifl need to configure, load and i 
run FORMSs-2; 'jun-derfeithe- ;.BASF 7100 BOS‘ Operatfrig" sfSiefr (Q/SV that You ar>. using: I 

, • o&q "x- 3sa<p©Jtu - SR ' , 

Other commands and directives are ^destriheif %n “the;? CIS COBOL Operating Guide for j 
your 0/s.,... 3X5.- 3* '.-qs.-'C \0C ilclfbu « 

r 3:-. a 3 r; :■ .= o_.£raS i-tdinni - SB • j 

The symbol;-<< >; d-ndilates, -that the 'RETUkK icev * of f equivalent should be pressed 
once. ' _ stcyr. yx»r: : tic. c- H3G 3eniJ ~ td i 

r.icsniiaocr.' coiii; r: lzvo x^~T~- g * 5 

To further clarify the sequences, the 0/S prompts, are included., before, the 
commands in this Appendix. Abor; TIG* 353ii»-sF « __) t_; rtcxSqe *uin 

E.I2K -3x©a yaiqe-iC - t) 

It is assumed thati^hQ^O/S: isuilctadedi 7 atkJ- r that = the) issued files have been copied 
to the 0/S system disk which is loaded in drive 0. In. order to bfv„abie.. to c 
compile your FO RMS-2 generated programs It is esseiM^l^^‘a€~ toe'diT^CoiOL 
system disk is loaded in drive 1. 


j 

J 


FORMS-2 LOADING 


c 


To load-FORMS=?'^g”"issueST, the command" is: 

w j/j? ■'lx KFS-SDc Sil -i 

“ ““ I RUN FORMS 2:0« 


I.IV S 21 LS 01 
rTSAMMae OTIAMLCD VOdKJV 


FORMS 2 CHECKOUT FfcO^AK COMPILATION. - < l .1 JW 

.; - dot.o 3 je wsbrrtv bn3 j* SW 

To compile .the Check-Qu^^pgram that-enables -yo3*? to check your fixed text and 

variable ^ 

EDIT FlBN-feOBOL: | c basenam|^HK^GpPYLI.ST<< 

In the sample* riihs---inyChaptfers T, ^'Idnd,9/baseiiame is, of course, DEM01 and 
DEMO2 respedtively.^ 55 ' - ^-- " E - \*-** r *~* '■ 


r;e vc. or;. 


r er- uo' 


*• PV 


FORMS—2 CHECK-OUT PROGRAM RUNNING 7 ^’ - i5ns “ sX 

~ — (nestr--. T ^ST 3x©n vsictxQ 


> r 

* t _ 


coJrJqc"' SJS.E 


" > 


The Check-Out 'eitebll^o^^^eck^your fixed text-and variable 

data fields can be loaded immediately after compilation iby -the. general-lthiTOandr: 

EDITTRUN RTS:1 basename.INT« 


r-3 


J 


In the Sample runs in Chapters 7 and 9, basename is, of course, DEM01 and DEMO2 
respectively. 




To be able to load the Check-Out program directly in subsequent use the 
following general command is entered: 

EDITF RON RTS:1 = basename.INT« 




D - 1 


£ - D 



Thereafter the general command following can be used to load the Check-Out 
program: 

EDIT f RUN basename:n« 
where n Is the drive number 


FORMS-2 index program compilation 

To enable the Index program that processes an indexed sequential data file from 
your FORMS-2 screens to be compiled the following general command is entered: 

EDITr RUN COBOL: 1 basename.GEN COPYLIST« 

FORMS-2 INDEX PROGRAM RUNNING 

The Index program that processes an Indexed sequential data file from your 

FORMS-2 screens can be loaded immediately after compilation by the general 
command: 

ED IT r RUN RTS:1 basename.INT« 

In the sample run in Chapter 9 basename is, of course, DEM02. 

In the BOS RUN command the user can specify the size of files to be allocated by 

the Index program, by inserting the parameter [nnn] after basename.INT as 
follows: 

RUN RTS:1 basename.INT:n [nnn]« 
where: 

n is the drive number 

nnn is the maximum number of records to be occupied by the files. The 
default allocated is 2/3 of the disk (100 sectors) 

To be able to load the-Index program directly in subsequent use the following 
general command is entered: 

ED ITT RUN RTS:1 * basename. INT«, 

Thereafter the general command following can be used to load the Index program: 
EDITr RUN basename:n« 


where n is the drive number 



D - 3 
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